home *** CD-ROM | disk | FTP | other *** search
/ Developer CD Series 1996 July: Mac OS SDK / Dev.CD Jul 96 SDK / Dev.CD Jul 96 SDK2.toast / Mac OS 8 Tour / Glossary / 00125_Forward.ls < prev    next >
Encoding:
Text File  |  1996-05-01  |  438 b   |  21 lines
  1. on mouseDown
  2.   global theScript
  3.   set theCast to the mouseCast
  4.   set the castNum of sprite 9 to theCast + 1
  5.   puppetSound("MouseDown.aif")
  6.   updateStage()
  7.   repeat while the mouseDown
  8.     if rollOver(9) then
  9.       nothing()
  10.       next repeat
  11.     end if
  12.     set the castNum of sprite 9 to theCast + 1
  13.     updateStage()
  14.     exit
  15.   end repeat
  16.   set the castNum of sprite 9 to theCast
  17.   puppetSound("MouseUp.aif")
  18.   updateStage()
  19.   go(1)
  20. end
  21.